home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
misc
/
allma.zip
/
WHT-SAVE.SMM
< prev
next >
Wrap
INI File
|
1995-02-06
|
17KB
|
940 lines
[ver]
4
[sty]
_DEFAULT.STY
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
[port]
LPT1:
[lang]
1
[fldnames]
Field1
Field2
Field3
Field4
Field5
Field6
Field7
Field8
[desc]
Calls up Save icons
792098317
60
755985920
709
6
225
1473
5
9
1
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
Business Writing
[lay]
Standard
513
[rght]
15840
12240
1
1440
1440
1
1440
1440
2
1
0
1
0
2
1
1440
10800
5
1
720
1
1440
1
2162
1
2883
1
3596
[hrght]
[lyfrm]
1
11200
0
0
12240
1440
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1440
12240
1
1440
144
1
360
1440
0
1
0
1
1
0
1
1440
10800
1
3
9360
[txt]
<+!>Created by Ashley Bass<-!>
<+!>December 15, 1993<-!>
>
[frght]
[lyfrm]
1
13248
0
14400
12240
15840
0
1
3
1 0 0 0 0 0 0
0
0
2
[frmlay]
15840
12240
1
1440
0
1
14544
1440
0
1
0
1
1
0
1
1440
10800
2
2
4695
3
9360
[txt]
>
[elay]
[l1]
0
[pg]
6
41 67 2 32 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
63 25 20 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
104 0 27 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
146 25 23 32 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
171 65 16 0 0 1 0 65535 4 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
174 0 52 1025 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
@Defines@<:#284,9360><:f240,2Times New Roman,0,0,0><+,>Define MoveWindow() DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)<-,>
@Defines@<:#284,9360><+,><:f240,2Times New Roman,0,0,0>Define Get<-,><+,>Size() DllCall("user,GetWindowRect,HHN",%1,%2)<-,>
@Function@<:#284,9360><-!><+!><:f240,2Times New Roman,0,0,0>
@Function@<:#284,9360>function begin(hdlg)
<:#284,9360>thisfile = getrunningmacrofile$()
<:#284,9360>metrics = getprofilestring$("wht-save", "Metrics", "{windir}amipro2.ini")
@If Endif@<:#284,9360> if metrics != ""
<:#284,9360> setdlgcallback(0, "{thisfile}!init")
@If Endif@<:#284,9360> endif
<:#284,9360>setdlgcallback(20, "{thisfile}!curloc")
@If Endif@<+C><:#284,9360><:f240,2Times New Roman,0,0,0>DlgKeyInterrupt(<[>F1], "HelpFun") ' This if F1<:f>
<:#284,9360>Box = DialogBox(".", "<:f240,2Times New Roman,0,0,0>Savewhat")
<:#284,9360>IF Box = -1
<:#284,9360>Message("Could not open dialog box; Exiting macro.")
<:#284,9360>EXIT FUNCTION
<:#284,9360>ELSEIF Box = 0
<:#284,9360>EXIT FUNCTION
<:#284,9360>ELSEIF Box = 3
<:#284,9360>if getdocinfo$(2) = ""
<:#284,9360> Saveas <:f240,2Times New Roman,255,0,128>'comment out this line and<:f>
<:#284,9360> 'call saveasnew.smm() <:f240,2Times New Roman,255,0,128>'uncomment this line if you have Takacs' Saveasnew.smm<:f>
<:#284,9360> elseif Save()
<:#284,9360> endif
<:#284,9360>ELSEIF Box = 4
<:#284,9360>Saveas <:f240,2Times New Roman,255,0,128>'ditto to above
<:#284,9360>'call savasnew.smm() <:f240,2Times New Roman,255,0,128>'ditto to above
<:#284,9360>ELSEIF Box = 5
<:#284,9360>call c:\amipro\macros\SavShade.smm()
<:#284,9360>ELSEIF Box = 6
<:#284,9360>Revert()
<:#284,9360>ELSEIF Box=7
<:#284,9360>DocInfo
<:#284,9360>ELSEIF Box=8
<:#284,9360>call crash()
<:#284,9360>ELSEIF BOX=9
<:#284,9360>call buttntst()
<:#284,9360>ENDIF
<:#284,9360>END FUNCTION
<:#284,9360><-!>DIALOG Savewhat
<:#568,9360>-2134900736 16 31 28 111 69 "" "AmiDialog" "Save what?"
<:#852,9360>6 3 15 15 3 1342373896 "button" "c:\amipro\icons\dlgicos\save.bmp" 0
<:#852,9360>6 19 15 15 4 1342373896 "button" "c:\amipro\icons\dlgicos\saveas.bmp" 0
<:#852,9360>6 35 15 15 5 1342373896 "button" "c:\amipro\icons\dlgicos\savselec.bmp" 0
<:#852,9360>6 51 15 15 6 1342373896 "button" "c:\amipro\icons\dlgicos\savrevrt.bmp" 0
<:#852,9360>90 33 10 10 7 1342373896 "button" "c:\amipro\icons\dlgicos\savekeyw.bmp" 0
<:#568,9360>26 7 18 10 3 1342177280 "static" "Save" 0
<:#568,9360>26 38 50 10 1004 1342177280 "static" "Selected Area" 0
<:#568,9360>26 23 48 10 1005 1342177280 "static" "Save As" 0
<:#568,9360>84 12 24 12 2 1342373888 "button" "Esc" 0
<:#568,9360>26 54 55 10 1000 1342177280 "static" "Revert to Saved" 0
<:#568,9360>91 8 10 3 20 1342373888 "button" "" 0
<:#568,9360>90 45 15 15 1001 1342177280 "static" "Doc Info" 0
<:#852,9360>104 62 5 5 8 1342373896 "button" "c:\amipro\icons\dlgicos\in_copy.bmp" 0
<:#852,9360>48 8 5 5 9 1342373896 "button" "c:\amipro\icons\dlgicos\in_copy.bmp" 0
<:#568,9360>55 7 15 8 1010 1342177280 "static" "/ro" 0
<:#568,9360>0 1 111 68 1002 1342177287 "static" "" 0
<:#284,9360>END DIALOG
<:#284,9360><:f240,2Times New Roman,0,0,0>FUNCTION HelpFun(hdlg, key)
<:#284,9360><:f240,2Times New Roman,0,0,0>DialogBox(".","Helper")
@Function@<:#284,9360><+!><:f240,2Times New Roman,0,0,0>end function<-!><:f>
<:#284,9360>DIALOG Helper
<:#568,9360>-2143289344 4 127 82 108 54 "" "" ""
<:#568,9360>39 38 33 12 2 1342373888 "button" "&Close" 0
<:#568,9360>91 44 12 7 1000 1342177280 "static" "abb" 0
<:#852,9360>10 7 90 26 1001 1342177281 "static" "Click on the button that represents the command you wish to execute." 0
<:#568,9360>1 1 106 52 1002 1342177287 "static" "" 0
<:#284,9360>END Dialog
<:#284,9360>function init(hdlg)
<:#284,9360>metrics = getprofilestring$("wht-save", "Metrics", "{windir}amipro2.ini")
<:#284,9360>x = strfield$(metrics, 1, ",")
<:#284,9360>y = strfield$(metrics, 2, ",")
<:#284,9360>w = strfield$(metrics, 3, ",")
<:#284,9360>h = strfield$(metrics, 4, ",")
<:#284,9360>movewindow(hdlg, x, y, w, h, 1)
@Function@<:#284,9360>end function
@Function@<:#284,9360>function curloc(hdlg)
<:#284,9360>dim coord(4)
<:#284,9360>getsize(hdlg, &coord)
<:#284,9360>x = coord(1)
<:#284,9360>y = coord(2)
<:#284,9360>cx = coord(3)
<:#284,9360>cy = coord(4)
<:#284,9360>w = cx - x
<:#284,9360>h = cy - y
<:#284,9360>writeprofilestring("wht-save", "Metrics", strcat$(x, ",", y, ",", w, ",", h), "{windir}amipro2.ini")
<+@><:#284,9360>end function
<:#284,9360><-"><-!><-#>Declare StripedName(filename)
<:#284,9360>
<:#284,9360><:f240,2Times New Roman,129,0,255><-"><-!><-#>'QICKFILE.SMM v2.0<:f>
<:#284,9360><:f240,2Times New Roman,129,0,255>'Programed by Jonathan Cook 8/17/94<:f>
@1@<+C><:#289,9360><+!>Function<-!> buttntst()
@1@<+C><:#284,9360>AllocGlobalVar("arrayfilename",5)
@1@<+C><:#284,9360>AllocGlobalVar("arrayFullFileName",5)
<:#284,9360>Dim Filename (5)
<:#284,9360>Dim FullFileName(5)
<:#284,9360>For n = 1 to 5
<:#284,9360> Filename (n) =GetProfileString$("amipro","Lastopen{n}","amipro.ini")
<:#284,9360> SetGlobalArray("arrayFullFileName",n,Filename(n))
<:#284,9360> Filename(n) = StripedName(Filename(n))
<:#284,9360> SetGlobalArray("arrayFileName",n,Filename(n))
<:#284,9360>SetDlgCallBack(30+n,"reset")
<:#284,9360>Next
@1@<+C><:#284,9360>SetDlgCallBack(0,"Change")
@1@<+C><:#284,9360>box = DialogBox(".","BBox")
@1@<+C><:#284,9360><+!>End Function<-!>
@1@<+C><:#284,9360><+!>
@1@<+C><:#289,9360><+!>Function<-!> Change(hdlg,id,txt)
@1@<+C><:#284,9360>For n = 1 to 5
@1@<+C><:#284,9360> Filename = GetGlobalArray$("arrayFileName",n)
<:#284,9360> FullFileName = GetGlobalArray$("arrayFullFileName",n)
<:#284,9360> SetDlgItemText(hDlg, 30+n, Filename)
<:#284,9360> if DosGetFileAttr(FullFileName) & 1
<:#284,9360> SetDlgItemText(hDlg,18+n*2,1)
<:#284,9360> Else
<:#284,9360> SetDlgItemText(hdlg,19+n*2,1)
<:#284,9360> Endif
@1@<+C><:#284,9360>Next
@1@<+C><:#284,9360><+!>End Function<-!>
@1@<+C><:#284,9360>
<:#289,9360><-!><+!>Function<-!> StripedName (filename)
<:#284,9360>For q = len(Filename) to 1 step -1
<:#284,9360> if mid$(Filename,q,1) = "\"
<:#284,9360> Filename = right$(Filename,len(Filename) - q)
<:#284,9360> break
<:#284,9360> endif
<:#284,9360>next
<:#284,9360>Return(filename)
<:#284,9360><+!>End Function<-!>
<:#284,9360>
<:#289,9360><+!>Function<-!> Reset(hDlg,Id,Text)
<:#284,9360>temp = id - 30
<:#284,9360>FullFileName = GetGlobalArray$("arrayFullFileName",temp)
<:#284,9360>if DosGetFileAttr(FullFileName) & 1
<:#284,9360> SetDlgItemText(hDlg,18+temp*2,0)
<:#284,9360> SetDlgItemText(hDlg,19+temp*2,1)
<:#284,9360> DOSSetFileAttr(FullFileName, DOSGetFileAttr(FullFileName) - 1)
<:#284,9360> else
<:#284,9360> SetDlgItemText(hDlg,19+temp*2,0)
<:#284,9360> SetDlgItemText(hDlg,18+temp*2,1)
<:#284,9360> DOSSetFileAttr(FullFileName, DOSGetFileAttr(FullFileName) + 1)
<:#284,9360> endif
@1@<+C><:#284,9360><+!>End Function<-!>
<:#284,9360>
<:#284,9360>DIALOG bbox
<:#568,9360>-2134376448 16 50 37 226 104 "" "" "Quick File v2.0"
<:#568,9360>5 8 130 14 31 1342373888 "button" "File No 1" 0
<:#568,9360>5 23 130 14 32 1342373888 "button" "File No 2" 0
<:#568,9360>5 38 130 14 33 1342373888 "button" "File No 3" 0
<:#568,9360>5 53 130 14 34 1342373888 "button" "File No 4" 0
<:#568,9360>5 68 130 14 35 1342373888 "button" "File No 5" 0
<:#568,9360>5 86 216 14 1 1342373888 "button" "Done" 0
<:#568,9360>144 10 24 12 20 1342242819 "button" "RO" 0
<:#568,9360>176 10 26 12 21 1342242819 "button" "R/W" 0
<:#568,9360>144 24 23 12 22 1342242819 "button" "RO" 0
<:#568,9360>176 24 26 12 23 1342242819 "button" "R/W" 0
<:#568,9360>144 39 22 12 24 1342242819 "button" "RO" 0
<:#568,9360>176 39 28 12 25 1342242819 "button" "R/W" 0
<:#568,9360>144 54 22 12 26 1342242819 "button" "RO" 0
<:#568,9360>176 54 26 12 27 1342242819 "button" "R/W" 0
<:#568,9360>144 68 23 12 28 1342242819 "button" "RO" 0
<:#568,9360>176 68 27 12 29 1342242819 "button" "R/W" 0
END DIALOG
<:#284,9360><:f240,2Times New Roman,255,255,255><+*>FUNCTION crash()<-*>
<:#284,9360><+*><:f240,2Times New Roman,255,255,255>DialogBox(".","crash")<-*>
@Function@<:#284,9360><+*><:f240,2Times New Roman,255,255,255>End Function<-*>
<:#284,9360><+*><:f240,2Times New Roman,255,255,255>DIALOG crash<-*>
<:#568,9360><+*><:f240,2Times New Roman,255,255,255>-2134376448 6 91 25 155 189 "" "" "Toolbar Macros by:"<-*>
<:#568,9360><+*><:f240,2Times New Roman,255,255,255>0 1 155 188 1002 1342177289 "static" "" 0
<-*>
<:#568,9360><+*><:f240,2Times New Roman,255,255,255>1 2 153 186 1002 1342177289 "static" "" 0
<-*>
<:#568,9360><+*><:f240,2Times New Roman,255,255,255>2 3 151 184 1002 1342177287 "static" "" 0
<-*>
<:#568,9360><+*><:f240,2Times New Roman,255,255,255>3 4 149 182 1002 1342177287 "static" "" 0
<-*>
<:#568,9360><+*><:f240,2Times New Roman,255,255,255>5 6 145 177 1002 1342177289 "static" "text" 0
<-*>
<:#852,9360><+*><:f240,2Times New Roman,255,255,255>6 7 147 160 1001 1342177290 "static" "c:\amipro\icons\dlgicos\in_cred.bmp" 0
<-*>
<:#284,9360><+*><:f240,2Times New Roman,255,255,255>END DIALOG<-*><:f>
>
[Embedded]
00011441
>
[macsum] 13
begin 0 1 5 3
Savewhat 819 0 -1 38
HelpFun 1851 2 1 57
Helper 1894 0 -1 60
init 2195 1 7 67
curloc 2443 1 9 75
buttntst 2721 0 5 90
Change 3201 3 4 106
StripedName 3582 1 2 119
Reset 3847 3 3 129
bbox 4250 0 -1 143
crash 5072 0 1 162
crash 5112 0 -1 165
[macse]
14 begin
0 802
13
8 2
0 286 "wht-save" "Metrics" "{4}amipro2.ini"
13
8 3
6 3
7 ""
18 1
11 00000129
0 41 0 "{2}!init"
0 41 20 "{2}!curloc"
0 47 112 "HelpFun"
0 26 "." "Savewhat"
13
8 5
6 5
5 -1
18 0
11 00000305
0 3 "Could not open dialog box; Exiting macro."
6 1
15
9
10 00000807
6 5
5 0
18 0
11 00000359
6 1
15
9
10 00000807
6 5
5 3
18 0
11 00000486
0 279 2
13
7 ""
18 0
11 00000447
24 104
10 00000473
2 103 1
13
11 00000473
10 00000807
6 5
5 4
18 0
11 00000536
24 104
10 00000807
6 5
5 5
18 0
11 00000612
16 c:\amipro\macros\SavShade.smm
10 00000807
6 5
5 6
18 0
11 00000663
2 105 1
10 00000807
6 5
5 7
18 0
11 00000713
24 109
10 00000807
6 5
5 8
18 0
11 00000765
16 crash
10 00000807
6 5
5 9
18 0
11 00000807
16 buttntst
6 1
15
9
DIALOG Savewhat
-2134900736 16 31 28 111 69 "" "AmiDialog" "Save what?"
6 3 15 15 3 1342373896 "button" "c:\amipro\icons\dlgicos\save.bmp" 0
6 19 15 15 4 1342373896 "button" "c:\amipro\icons\dlgicos\saveas.bmp" 0
6 35 15 15 5 1342373896 "button" "c:\amipro\icons\dlgicos\savselec.bmp" 0
6 51 15 15 6 1342373896 "button" "c:\amipro\icons\dlgicos\savrevrt.bmp" 0
90 33 10 10 7 1342373896 "button" "c:\amipro\icons\dlgicos\savekeyw.bmp" 0
26 7 18 10 3 1342177280 "static" "Save" 0
26 38 50 10 1004 1342177280 "static" "Selected Area" 0
26 23 48 10 1005 1342177280 "static" "Save As" 0
84 12 24 12 2 1342373888 "button" "Esc" 0
26 54 55 10 1000 1342177280 "static" "Revert to Saved" 0
91 8 10 3 20 1342373888 "button" "" 0
90 45 15 15 1001 1342177280 "static" "Doc Info" 0
104 62 5 5 8 1342373896 "button" "c:\amipro\icons\dlgicos\in_copy.bmp" 0
48 8 5 5 9 1342373896 "button" "c:\amipro\icons\dlgicos\in_copy.bmp" 0
55 7 15 8 1010 1342177280 "static" "/ro" 0
0 1 111 68 1002 1342177287 "static" "" 0
14 HelpFun
0 26 "." "Helper"
6 2
15
9
DIALOG Helper
-2143289344 4 127 82 108 54 "" "" ""
39 38 33 12 2 1342373888 "button" "&Close" 0
91 44 12 7 1000 1342177280 "static" "abb" 0
10 7 90 26 1001 1342177281 "static" "Click on the button that represents the command you wish to execute." 0
1 1 106 52 1002 1342177287 "static" "" 0
14 init
0 286 "wht-save" "Metrics" "{3}amipro2.ini"
13
8 2
0 20 "{2}" 1 ","
13
8 4
0 20 "{2}" 2 ","
13
8 5
0 20 "{2}" 3 ","
13
8 6
0 20 "{2}" 4 ","
13
8 7
0 284 "User,MoveWindow,HHHHHHA" "{0}" "{4}" "{5}" "{6}" "{7}" 1
6 1
15
9
14 curloc
5 4
21 2 [X]
0 284 "user,GetWindowRect,HHN" "{0}" &2
5 1
22 2
8 3
5 2
22 2
8 4
5 3
22 2
8 5
5 4
22 2
8 6
6 5
6 3
3 1
8 7
6 6
6 4
3 1
8 8
0 16 "{3}" "," "{4}" "," "{7}" "," "{8}"
13
0 287 "wht-save" "Metrics" [X] "{9}amipro2.ini"
6 1
15
9
14 buttntst
0 271 "arrayfilename" 5
0 271 "arrayFullFileName" 5
5 5
21 1 [X]
5 5
21 2 [X]
5 1
8 3
5 5
6 3
18 2
12 00000182
10 00000425
5 1
6 3
3 0
8 3
10 00000107
6 3
0 286 "amipro" "Lastopen{3}" "amipro.ini"
13
23 1
6 3
22 1
0 272 "arrayFullFileName" "{3}" [X]
6 3
6 3
22 1
16 StripedName [X]
13
23 1
6 3
22 1
0 272 "arrayFileName" "{3}" [X]
5 30
6 3
3 0
0 41 [X] "reset"
10 00000149
0 41 0 "Change"
0 26 "." "BBox"
13
8 4
6 0
15
9
14 Change
5 1
8 4
5 5
6 4
18 2
12 00000096
10 00000369
5 1
6 4
3 0
8 4
10 00000021
0 273 "arrayFileName" "{4}"
13
8 5
0 273 "arrayFullFileName" "{4}"
13
8 6
5 30
6 4
3 0
0 43 "{0}" [X] "{5}"
0 775 "{6}"
13
5 1
25 1
11 00000312
5 18
6 4
5 2
4 0
3 0
0 43 "{0}" [X] 1
10 00000356
5 19
6 4
5 2
4 0
3 0
0 43 "{0}" [X] 1
10 00000063
6 3
15
9
14 StripedName
0 14 "{0}"
13
8 2
5 1
6 2
18 4
12 00000113
10 00000241
5 -1
6 2
3 0
8 2
10 00000037
0 15 "{0}" "{2}" 1
13
7 "\"
18 0
11 00000228
0 14 "{0}"
13
6 2
3 1
0 807 "{0}" [X]
13
8 0
10 00000241
10 00000079
6 0
15
9
6 1
15
9
14 Reset
6 1
5 30
3 1
8 4
0 273 "arrayFullFileName" "{4}"
13
8 5
0 775 "{5}"
13
5 1
25 1
11 00000259
5 18
6 4
5 2
4 0
3 0
0 43 "{0}" [X] 0
5 19
6 4
5 2
4 0
3 0
0 43 "{0}" [X] 1
0 775 "{5}"
13
5 1
3 1
0 776 "{5}" [X]
10 00000391
5 19
6 4
5 2
4 0
3 0
0 43 "{0}" [X] 0
5 18
6 4
5 2
4 0
3 0
0 43 "{0}" [X] 1
0 775 "{5}"
13
5 1
3 0
0 776 "{5}" [X]
6 3
15
9
DIALOG bbox
-2134376448 16 50 37 226 104 "" "" "Quick File v2.0"
5 8 130 14 31 1342373888 "button" "File No 1" 0
5 23 130 14 32 1342373888 "button" "File No 2" 0
5 38 130 14 33 1342373888 "button" "File No 3" 0
5 53 130 14 34 1342373888 "button" "File No 4" 0
5 68 130 14 35 1342373888 "button" "File No 5" 0
5 86 216 14 1 1342373888 "button" "Done" 0
144 10 24 12 20 1342242819 "button" "RO" 0
176 10 26 12 21 1342242819 "button" "R/W" 0
144 24 23 12 22 1342242819 "button" "RO" 0
176 24 26 12 23 1342242819 "button" "R/W" 0
144 39 22 12 24 1342242819 "button" "RO" 0
176 39 28 12 25 1342242819 "button" "R/W" 0
144 54 22 12 26 1342242819 "button" "RO" 0
176 54 26 12 27 1342242819 "button" "R/W" 0
144 68 23 12 28 1342242819 "button" "RO" 0
176 68 27 12 29 1342242819 "button" "R/W" 0
14 crash
0 26 "." "crash"
6 0
15
9
DIALOG crash
-2134376448 6 91 25 155 189 "" "" "Toolbar Macros by:"
0 1 155 188 1002 1342177289 "static" "" 0
1 2 153 186 1002 1342177289 "static" "" 0
2 3 151 184 1002 1342177287 "static" "" 0
3 4 149 182 1002 1342177287 "static" "" 0
5 6 145 177 1002 1342177289 "static" "text" 0
6 7 147 160 1001 1342177290 "static" "c:\amipro\icons\dlgicos\in_cred.bmp" 0
00011466